home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8608a.d64 / irq init (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  368b  |  29 lines
  1. 9 REM LO BYTE INTERRUPT ANFANG
  2. 10 LETL=00
  3. 19 REM HI BYTE INTERRUPT ANFANG
  4. 20 LETH=128
  5. 30 LETA=H*256
  6. 40 LETA=A+L
  7. 50 LETB=A
  8. 60 LETC=PEEK(B)
  9. 70 IFC<32THEN190
  10. 80 IFC>32THEN190
  11. 90 LETC=B+1
  12. 100 LETC=PEEK(C)
  13. 110 IFC<49THEN190
  14. 120 IFC>49THEN190
  15. 130 LETC=B+2
  16. 140 LETC=PEEK(C)
  17. 150 IFC<234THEN190
  18. 160 IFC>234THEN190
  19. 170 POKEB,76
  20. 180 GOTO210
  21. 190 LETB=B+1
  22. 200 GOTO60
  23. 210 LETA=24696
  24. 220 SYS828
  25. 230 POKE788,L
  26. 240 POKE789,H
  27. 250 LETA=24664
  28. 260 SYS828
  29.